EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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LL III BERBERA ccccccce 000000 MM MM OMM MM 000000 NN NN 
LL eeeeel BBBBBBBB CCCCCCCC 000000 MM MM MM MM 000000 NN NN 
LL I] 8B BB CC 0 00 MMMM MMMM MMMM MMMM 00 00 NN NN 

LL I] BB BB CC 00 00 MMMM MMMM MMMM MMMM O00 00 NN NN 

LL I] BB BB CC 00 00 MM MM MM MM MM MM «OO 00 NNNN N 

LL II BA BB CC 00 00 MM MM MM MM MM OO 00 NNNN NN | 
LL II BSBBERBB cc 00 00 MM OMM MM 00 00 NN NN WN 

LL I] BB cc 00 00 MM MM MM MM 00 00 NN NN WN 
LL 1] ys) BR CC 00 00 MM MM OMM MM 00 0O NN NNNN 
LL II BR BB CC 00 00 MM MM OMM MM 00 00 NN NNNN | 
LL II 65 BB CC 00 00 MM MM oOMM MM 00 00 NN NN cand 

LL II BB BB CC 00 MM MM MM MM 00 00 NN NN noe 
LLLLLLELLL III BB3BBBBB ccccccce 000000 MM MM MM MM 000000 NN NN sani 
LELLLLLLLL eeeee CCCCCCCCE 000000 MM MM MM MM 000000 NN NN eae | 
LL eeeee SSSSSSSS | 
LL eeeee SSSSSSSS 
LL I] $s 
LL Il Ss 
LL I] ss 
LL Il ss 
LL II SSSSSS 
LL I] SSSSSS 

LL I] Ss | 
LL II ss 

LL I] SS 
LL II ss j 
LLELLLLLLLL III SSSSSSSS 
LLLLELLLLL eeeee SSSSSSSS 
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| LIBSCOMMON 16-Sep p- 138% 00: 33:3) AX=11 Bliss-32 V rhe 
14-Sep 2:38:27 CTARTL’S Rea 1BCO OMON. B32;1 
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MODULE LIBSCOMMON ( Get and put common 


IDENT = '1-006' ! File: LIBCOMMON.B32 Edit: RKR1006 


)= 
BEGIN 


LRA RARER 
| 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
i® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
!* ALL RIGHTS RESERVED. 


® 
*® 
® 
* 
' * 
iz THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR “ANY OTHER = 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S HEREBY * 
ie TRANSFERRED. ° 
*® 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ix CORPORATION. : 
* 
* 
® 
* 
* 
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le4 
i FACILITY: VAX-11 COMMON RTL 
i ABSTRACT: 


This module contains routines to move strings to and from the 
process permanent common area. 


i] 

1 

! 

i] 

! 

i 

1 

! 

ENVIRONMENT: Native mode VAX processor, Any mode. 
AUTHOR: V. Eriksson, CREATION DATE: 7-Nov-79 
MODIFIED BY: 
VERSION 1.0 
t 1 o 

! 1-002 - Fit into the RTL's build procedure and onvert to LIB$ width, 
: case and commenting conventions. JBS oe" 

! 1-003 - Change return codes from STR$ to LIB$. § 22-JA N-1980 

! 1-004 = Change copy call from cTRECOPY. Dx to t1psecopy “DRDKG. This 

: eliminates the need for a handler and the need to convert 
AT a LIBS statuses. Also faster. 

: 1-005 = Add special-case code to process classes of of 135779 descriptors 
' 


that ‘‘read"’ Like fixed strings. 
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i 1-006 = Redirect jsb's from LIBSANALYZE_DESC_R3 Ly 


YAtent BLi ait -32 V 
“Sep- LIBRTL.SRC 16c0 OMMON. 4 2;1 


8 O038 2 LIBSANALYZE SDESC_R2, Use LIBSSCOPY_R_DX6 instead of 

9 BR? 1! LIBSSCOPY_DRDX6 to pick up some more speed. RKR 18-NOV-1981. 
60 060 1 !-- 
61 0061 1 
62 0062 1 !<blf/page> 
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! SWITCHES : 


SWITCHES ADDRESSING MODE 


(EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES 


REQUIRE 'RTLIN:STRLNK'; 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
LIBSPUT_COMMON, 
LIBSGET~ COMMON: 


INCLUDE FILES: 


LIBRARY ‘RTLSTARLE'; 
REQUIRE "RTLIN:RTLPSECT’; 


t 

MACROS: 
NONE 
: EQUATED SYMBOLS: 


LITERAL 
COMM 


: PSECTS: 
DECLARE_PSECTS (LIB); 
i OWN STORAGE: 

: NONE 

| EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
LIBSANALYZE_SDESC_R2 


Linkages for LIBSANALYZE_SDESC_R2 


Puts a string into the common area 
Gets a string from the common area 


Get descriptor field definitions 
Define the declare_psects macro 


gth of common area in P1 space 
set of common area from base in 
space pointed to by descriptor 


Declare psects for the LIBS facility 


: LIBSANALYZE_SDESC_JSB_LINK, ! Routine to 
! extract length 


—E 3 
16-Sep-1984 00 aB'30 AX-11 Bliss-32 V4.0-74 Page 
14-Sep-1984 12:38:27 LIBRTL.SRCJLIBCOMMON.B32;1 (2) 
; 321 0398 1 ' and address of 
; 122 0399 1 7 ! Ist data byte 
3 ‘Ss? e's : LIBSSCOPY_R_DX6 : STRING_JSB; ! Routine to copy string 
; 158 0402 1 EXTERNAL : 
> 126 0405 1 SYSSGL_COMMON : REF BLOCK C, BYTE); ! Pointer to descriptor 
3; ter 0404 1 ! of common area in P1 
; 128 0405 1 ! space. 
; 192 0406 1 
; i= 0407 1 !+ 
> 6131 0408 1 ! The following error codes are used in this module 
: 135 eh 4 1 !- 
Pe 410 1 
; 134 0411 1 EXTERNAL LITERAL 
s 135 orig 1 LIBS_INVSTRDES, ! invalid string descr. 
3 1% ohh : LIBS_STRTRU; ! string truncated 


7 


MAP 
STRING_DESCR : REF BLOCK C, BYTE), 
BYTES_COPIED : REF VECTOR C, WORD); 


Points to the string 
descr. 

Points to word to 
receive number of 


F 3 
LIBSCOMMON 16-Sep-1984 00:39:37 AX=-11 Bliss-32 V4.0-74 Page 5. LIB 
1-006 1e-8ep-1984 90:38:37 UYBRTL SRETLISCOMMON. B92: 1 “ (3). Sym 
>; 139 0415 1 GLOBAL ROUTINE LIBSPUT_COMMON ( ! Put string into common area DSC 
: 140 pris 1 DSC 
: 141 0417 1 STRING DESCR, ' String to put INI 
: 148 0418 1 BYTES_COPIED i Number of bytes copied LIB 
3 (14 0419 1 LIB 
3 144 0420 1 ds STR 
3 145 0421 1 | TAB 
> «146 04 § 1 !e¢ 
3 (147 04 1 ! FUNCTIONAL DESCRIPTION: 
> 148 0424 1! 
3; «6149 0425 1! The string (described by first parameter) is copied to the 
; i pass 1} common area. The length of the string is moved to the 
3s Yo) 0427 1! tirst longword of the area. If the string is too long, then 
s 152 0428 1! only part of the string is copied. The number of bytes copied is 
s 153 0429 1! returned in the parameter bytes_copied, if the routine is called 
> 154 0430 1! by two parameters. 
: «6155 0431 1! 
; 156 0432 1 ! FORMAL PARAMETERS: | 
, 3or 0433 1! 
s 138 0434 1! string_descr.rt.dx - Pointer to desriptor of string to be 
; 19 0435 1! copied * 
; 160 0436 1! bytes_copied.ww.r - Pointer to word to receive # bytes 
3; «161 0437 1! copied 
: 166 0438 1! (optional parameter) 
; «(16 0439 1! 
> 164 0440 1 ! IMPLICIT INPUTS: 
> «165 0441 1! 
; 166 rr) : SYSS$GL_COMMON ~ Pointer to descriptor of the common area 
: «168 0444 1 ! IMPLICIT OUTPUTS: 
: 169 0445 1! 
: 170 0446 1! The common area is (partly) filled oy the string. 
; #171 0447 1! The Length of the string is put in the first longword 
s We 0448 1! of the common area. 
s 75 0449 1! 
> 174 0450 1 ! CONDITION CODES: 
: 175 0451 17! 
; 176 0452 1! SS$_NORMAL - success : 
.* ee 0453 1! LIBS_INVSTRDES = invalid string descriptor ; 
: 178 ote: : ; LIB$_STRTRU = common had room for only part of the string 
: 180 0456 1 ! SIDE EFFECTS: 
: «181 0457 1! 
s 136 0458 1! NONE 
; #18 0459 1! 
> «(184 0460 1 !-- 
s 185 0461 1 
: «186 0462 2 BEGIN 
3s 187 046 § 
: «188 0464 BUILTIN 
3: «6189 0465 NULLPARAME TER; 
; 190 
a. 
3 198 
3: 194 
3; «6195 
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bytes copied 


AERC _LEN 
SRC-ADDR, 


Length of source 
Address of ist data 
byte of source 
Descriptor of common 
string area 

Status to return to 
caller 


COMMON_DESCR : BLOCK (8, BYTE), 


meme me mee mee 


'¢ 
- Initialise the common string area descriptor. 


COMMON_DESCR CDSC$W_LENGTH]) = 
MINU (.SYSSGL_COMMON CDSCS$W_LENGTH], COMMON_LENGTH) = 4; 
COMMON_DESCR DStSA POINTER) = 
S$GL_COMMON CDSCS$A_POINTER] + 1SORRON OFFSET + 4; 
COMMON_ DESCR DSC$B_DTYPE] = DSC$K_D 
COMMON_DESCR CDSC$B-CLASSJ = DSC$K~ att “S: 


14 
t Extract length and address of Ist data byte from source string 


IF .STRING_DESCR CDSC$B_ CLASS] GTRU DSC$K_CLASS_D 
THEN ! generalized extraction needed 


BEGIN 
STS = LIBSANALYZE_SDESC_R2 ( .STRING_DESCR ; 
SRC LEN, SRC “ADDR 3 


END 
ELSE ! can fetch pieces directly 
BEGIN 
SRC_LEN = .STRING DESCR CDSC$W LENGTH] 
SRCADDR = .STRING_DESCR CDSCSA “POINTERS ; 


STS"= SS$ _NORMAL 
END ; 


+ 


' 
i If status returned was not a success, skip the copy, but update 
. BYTES_COPIED (if present). 


ir NOT .STS 
THEN 


BEGIN ' bad source descri 
Serum oe NULL PARAMETER (2) TH ‘ BYTES COPIED C0] = 0 ; 
END 7 bad source descriptor 


'¢ 
Move as much as possible of the string to the common string area. 


STS = LIBSSCOPY_R_DX6 ( .SRC_LEN, .SRC_ADDR, COMMON_DESCR) ; 
'¢ 


Put the number of bytes copied in the first word of the common 
area. 


3 
1E-Sep-1964 00:39:57 YAR-I1 Bling 32 Wé0-742 
! 


LIBSCOMMON 
1-006 


$ TH 0529 
; § 4 0530 
: 255 0531 
; 2 05 ¢ 
: gor 05 

: 258 0534 
: 259 0535 
; 260 0536 
: 261 0537 
; $06 b238 
; 2 0539 
: 264 0540 
; 265 0541 

04 


H 3 

16-Sep-1984 00:39:37 AX 

a ae 90:33:35 tt 
«SYSOGLCOMMGN COSCEA POINTER) = 


U (.SRO_LEN, .COMMON_DESCR COSCS$W_LENGTH) ); 


-11 Oi leans V4.0-74 
BRTL.SRCJLIBCOMMON.B52;1 


14 
: Put number of bytes copied in the parameter bytes_copied (if the 
} second parameter is specified). 


IF NOT NULLPARAMETER (2) ran 
BYTES_COPIED CO] = .(.SYS$GL_COMMON CDSCSA_POINTER)); 


2 RETURN .STS: 
1 END; ! End of LIBSPUT_COMMON 
TITLE LIBSCOMMON 
IDENT \1-006\ 
.EXTRN LIBSANALYZE_SDESC_R2 
-EXTRN LIBS$SCOPY_R~DX6 
EXTRN SYS$GL_COMMON, LIBS_INVSTRDES 
EXTRN LIB$_STRTRU 
PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
O1FC 00000 .ENTRY LIBSPUT_COMMON, Save R2,R3,R4,R5,R6,R7,R8 
58 000000006 00 3 00002 MOV SYS$GL_COMMON, RB 
5E 08 C2 00009 SUBL2 # 
51 8 pO 0000¢ MOVL § SYS$GL_COMMON, R1 
50 61 3C O000F MOVZWL (R1), RO 
0100 = 8F 50 81 90012 CMPW ORO, #256 
05 1B 0001 LEQU «1$ 
50 0100 8 3¢ 00019 MOVZWL #256, RO 
6E 50 04 A3 SO01E 1$: SUBW3 #4, RO, COMMON _DESCR 
AE 04 Al 04 Ci 0002 ADDL3 #4. 4(R1), COMPON DESCR+4 
02. AE 0100 8F BO 00028 MOVW #256, COMMON_DESCR+2 
53 04 AC DO 0002E MOVL STRING_DESCR: 3 
02 03 A391 00032 CMPBs«3(R3), -@ 
14 1B 00036 BLEQU 
50 53 DO 00038 MOVL 3, R 
000000006 00 16 00038 JSB LIBSANALYZE_SDESC_R2 
54 50 DO 00041 MOVL RO, STS 
57 51 DO 00044 MOVL 1, R7 
55 32 D0 90047 MOVL 2, RS 
A 11 OO04A BRB 3 
57 63 3¢ 0004C 2$: MOVZWL (R3), SRC_L 
55 04 A’ DO 0004F MOVL  4(R35, SRC_ADDR 
54 01 D0 0053 MOVL #1, STS 
OF 54 E 0056 3$: BLBS STS, 4$ 
02 é¢ 1 00059 CMPB ss APS, «2 
F Ff O9¢ BLSSU  6$ 
08 AC D3 05E TSTL (AP) 
3A 1 61 BEQL 
08 BC B4 00063 CLRW aBYTES_COPIED 
11 000 BRB 
52 6 9 0068 4$: MOVAB COMMON _DESCR, R2 
51 DO 00068 MOVL SRC_ADDR, R1 


L1B 
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LIBSCOMMON 1 7 AX-11 Bliss-32 V Page 
1-006 oat a ee Oo eee Hee SReaL ToCONMON 68251 oe 3S 
50 7 v0 MOVL SRC LEN RO ; 
: 000000006 i ea: JB : LIBSSCOPY_R _DX6 : | 
$5 D 7A MOVL srecren COMMON, RO : 9530 
1 D 7D MOVL CLEA + 0531 
51 6E 10 : FD 9 CMPZV Hil6, COMMON. DESCR, R1 : | 
E BGEQU : | 
51 oF 3¢ 7 MOVZWL COMMON D SCR, R1 : 
04 80 p A 5$ OVL 1, a4TR : 
02 6C 1 : CMP (AP), Se : 0537 
A if 0009 BLSSU 6$ : 
08 A D3 3 TSTL (AP) : 
0 BEQL $ ; 
08 BC 04 B0 BO 0009 MOVW  @4(RO), @BYTES_COPIED : 0538 
50 4 DO 0009D 6$ MOVL STS, RO : 0540 
04 000A0 RET > 0541 
; Routine Size: 161 bytes, Routine Base: _LIBSCODE + 0000 


; 266 0542 1 
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GLOBAL ROUTINE LIBSGET_COMMON ( 


i 5 
16-Sep-1984 00:39:37 AX-11 Blis 
12286071384 99538537 LIBRTL.SRC 
! Get a string from common area 


BUFFER_DESCR, ! Where to put strin 
C 


BYTES_COPIED ! Number of bytes a Pual ly copied 


lee 
! FUNCTIONAL DESCRIPTION: 


The string in the common area is copied to the 

buffer gegen oy the parameter buffer_descr. The string 
Length is fetched from the first longword of the common 
area. If the string is too gong for the buffer, then only 
part of the string is copied. The number of bytes copied 

is returned by the parameter bytes_copied, if the routine is 
called by two parameters. 


FORMAL PARAMETERS: 


buffer_descr.rz.dx - a te ani to descr of buffer to receive 
strin 

bytes_copied.ww.r - Pointer to word to receive # bytes 
copied 
(optional parameter) 


IMPLICIT INPUTS: 


SYS$GL_ COMMON Pointer to descriptor of common area 


IMPLICIT OUTPUTS: 


The buffer described by the parameter buffer_descr is (partly) 
filled by the string from the common area. 


ROUTINE VALUE: 


SS$_NORMAL = success = 

LIBS_INVSTRDES = invalid string descriptor 

LIBS_STRTRU - string was longer than buffer and was 
truncated 


SIDE EFFECTS: 


NONE 


BEGIN 


BUILTIN 
NULLPARAME TER; 


CR : REF BLOCK C, BYTE], ! Points to receive buffer 
ED : REF VECTOR [, word); i Points to word to receive 
! number of bytes copied 


K 3 
LIBSCOMMON 16-Sep-1984 00:39:37 AX=11 Bliss-32 V4.0-74 Pa = 18 
1-006 1o738b71382 99:38:35 «| Heat SAE ac tecommon -bS251 9 a) | -0 
2 Bee. 
: 7 Oege N_LEN, ! Size of input area 
3 8 060 OUT_LEN ' Size of output area 
; 2 pene NUT“ADDR, thes of Ist data byte of 
; ' output area | 
; 1 pene COMMON_DESCR : BLOCK (8, BYTE], Descriptor of the common 
3 ' string area. 
+ 009 : STS; ! Status to return to caller | 
; + Ost ¢ | aust 02 ee as possible of the string from the common area to 
339 0614 3° IN_LEN = MINU (.(.SYSSGL_COMMON [DSCSA_POINTERI), | 
; st 0615 é COMMON_LENGTH = 4); | 
; & 0617 STS = LIBSSCOPY_R_DX6 ( .IN_LEN, ! Length 
: 38 be18 8 "SYSSGL{COMMON CDSCSA_POINTER] + | adde 
; 344 0619 é OMMON_OFFSET + 4, 
: $02 aesy -BUFFER_DESCR) ; 
: 347 06 ; ' Move the number of bytes copied to the pa ter byt ied, if th 
: 305 0638 § second parameter is Rpecit ied. ne tain Spon ae tid Y Me 
: 350 0625 2 IF NOT NULLPARAMETER (2) : 
s 351 0626 ¢ THEN 
ae tee Be bs ves: 
: 354 0629 3 i Determine how Sony bytes actually got copied into destination ; 
: $2, bese ; buffer by LIBSSCOPY_R_DXx6. 
: 357 063 ; if ~BUFFER_DESCR COSCSB_CLASS] GTRU DSC$K_CLASS_D 
: $26 O087 i eng ! generalized extraction of length 
; 360 0635 4 LIBSANALYZE_SDESC_R2 ( .BUFFER_DESCR ; OUT_LEN, OUT_ADDR ) ; : 
: 363 O63? wr 
3 368 st 3 ELSE ! can fetch Length directly ; 
; 5 0649 OUT_LEN = .BUFFER_DESCR COSC$W_LENGTH) ; . 
3 67 064 BYTES_COPIED (OJ = MINU (.IN_LEN, .OUT_LEN); | 
; 369 boda END; | : 
s S70 0645 RETURN .STS; 3 
; 371 0646 1 END; ! End of LIBSGET_COMMON | : 
: 
OF 00 ENTRY b J8S6eT COMMON, Save R2,R3,R4,R5,R6,R7,R8 ; 0543 
E 08 C2 000 SUBL2 #8, SP 3 
1 000000006 D 6 MOVL SYSSGL_COMMON, R1 ; 0614 
0 4 1 OD 6 MOVL a4(R1), RO ; 0615 
Oo0000FC = BF 0 D1 0001 CMPL = RO, #252 ; 


3 
LIBSCOMMON 1bes ep-1984 7 AX-11 Bliss-32 V4.0-7 Page 11 
1-006 14*$ Bae 99: 33: 35 LIBRTL.SR REIL 1BCOMMON. 4 2;1 . (4) 


| 
4 18 00017 BLEQU§ 1$ ; 
50 FC rf 9A o18 MOVZBL #352 RO : 
2 0 00 00010 1$: MOVL RO, IN_LEN + 0614 
57 04 AC DO 00020 MOVL. BUFFERTDESCR, R7 : 0620 
51 04 Al 4 C1 00 4 ADDL3 a4, 4¢RI), Ri + 0619 
52 ? BO 00099 MOVL ; 0617 
50 8 DO 000eC MOVL WUE : 
000000006 00 16 0002F JSB LiBssc6 ie R_DX6 ; 
53 DO 00035 MOVL : 
02 6¢ 91 00038 CMPB Cab) + 0625 
1F 00038 BLSSU : 
08 AC 03 : TSTL (AP) : 
23 (1 4 BEQL b : 
02 03 A? 91 0004 CMPB (R7), #2 + 0632 
08 1B 0046 BLEQU 2$ : 
50 DO 0004 OVL 7, RO > 0635 
000000006 00 16 00048 JSB IBSANALYZE_SDESC_R2 ; 
03 11 0091 BRB + 0632 
51 67 3C 0005 28: MOVZWL (R7), OUT_LEN > 0640 
50 28 dO 0056 $: MOVL _LEN, RO + 0642 
51 9 D1 0005 CMPL RO? OUT_LEN ; 
p 1B 0005¢ BLEQU 4 : 
50 1 00 0005€ MOVL OUT_LEN RO ; 
08 BC 20 BO 00061 4$: MOVW RO, a@BYTES_COPIED : 
50 53 (D0 90065 S$: MOVL STS, RO + 0645 
04 00068 RET + 0646 
; Routine Size: 105 bytes, Routine Base: _LIBSCODE + OOA1 
: 37 0647 1 
° }H na of moaguie 
373 0648 1 END ! End of module LIBSCOMMON 
> 374 0649 1 
: 375 0650 0 ELUDOM 
: PSECT SUMMARY | 
: Name Bytes Attributes 
: LIBSCODE 266 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
: co a SS Ne Pe een Symbols eeeeeooe Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 8 0 581 00:00.8 | 
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COMMAND QUALIFIERS 
BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:L IBCOMRON/0B=08JS:L IBCOMMON MSRC$:LIBCOMMON/UPDATE=(ENH$:L IBCOMMON 

Size: 266 ode + 0 data bytes 

Run Time: 00: . 

Elapsed Time: 00:21. 

Lines/CPU Min: 6712 

Lexemes/CPU-Min: 26426 

ponety Used: 75 pages 

Compilation Complete 
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